home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / htmlso_1 / email.frm next >
Text File  |  1998-04-09  |  4KB  |  128 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Add an E-Mail link"
  5.    ClientHeight    =   1365
  6.    ClientLeft      =   1800
  7.    ClientTop       =   2625
  8.    ClientWidth     =   6225
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   177
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Icon            =   "EMAIL.frx":0000
  20.    LinkTopic       =   "Form3"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    PaletteMode     =   1  'UseZOrder
  24.    ScaleHeight     =   1365
  25.    ScaleWidth      =   6225
  26.    Begin VB.CommandButton cancel 
  27.       Appearance      =   0  'Flat
  28.       BackColor       =   &H80000005&
  29.       Caption         =   "Cancel"
  30.       Height          =   375
  31.       Left            =   3480
  32.       TabIndex        =   5
  33.       Top             =   840
  34.       Width           =   2055
  35.    End
  36.    Begin VB.CommandButton ok 
  37.       Appearance      =   0  'Flat
  38.       BackColor       =   &H80000005&
  39.       Caption         =   "OK"
  40.       Default         =   -1  'True
  41.       Height          =   375
  42.       Left            =   1200
  43.       TabIndex        =   4
  44.       Top             =   840
  45.       Width           =   1935
  46.    End
  47.    Begin VB.TextBox link 
  48.       Height          =   285
  49.       Left            =   1920
  50.       TabIndex        =   3
  51.       Top             =   480
  52.       Width           =   3735
  53.    End
  54.    Begin VB.TextBox email 
  55.       Height          =   285
  56.       Left            =   1920
  57.       TabIndex        =   1
  58.       Top             =   120
  59.       Width           =   3735
  60.    End
  61.    Begin VB.Label Label2 
  62.       Appearance      =   0  'Flat
  63.       BackColor       =   &H00C0C0C0&
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "Link text:"
  66.       BeginProperty Font 
  67.          Name            =   "Arial"
  68.          Size            =   9.75
  69.          Charset         =   177
  70.          Weight          =   700
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       ForeColor       =   &H80000008&
  76.       Height          =   255
  77.       Left            =   840
  78.       TabIndex        =   2
  79.       Top             =   480
  80.       Width           =   975
  81.    End
  82.    Begin VB.Label Label1 
  83.       Appearance      =   0  'Flat
  84.       BackColor       =   &H00C0C0C0&
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "E-Mail address:"
  87.       BeginProperty Font 
  88.          Name            =   "Arial"
  89.          Size            =   9.75
  90.          Charset         =   177
  91.          Weight          =   700
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       ForeColor       =   &H80000008&
  97.       Height          =   255
  98.       Left            =   360
  99.       TabIndex        =   0
  100.       Top             =   120
  101.       Width           =   1455
  102.    End
  103. End
  104. Attribute VB_Name = "Form3"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = False
  107. Attribute VB_PredeclaredId = True
  108. Attribute VB_Exposed = False
  109.  
  110. Option Explicit
  111.  
  112. Sub cancel_Click()
  113. Unload Me
  114. End Sub
  115.  
  116. Sub Form_Load()
  117. Form3.Height = Form2.Height
  118. Form3.Width = Form2.Width
  119. End Sub
  120.  
  121. Sub ok_Click()
  122. Form1.main.SelText = Form1.main.SelText + "<a href=mailto:" & Chr(34) & email.Text & Chr(34) & ">" + link.Text + "</a>"
  123. Form3.email.Text = ""
  124. Form3.link.Text = ""
  125. Unload Me
  126. End Sub
  127.  
  128.